home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / src / tickle.r < prev    next >
Text File  |  1993-11-18  |  7KB  |  294 lines
  1. /*
  2. ** This source code was written by Tim Endres
  3. ** Email: time@ice.com.
  4. ** USMail: 8840 Main Street, Whitmore Lake, MI  48189
  5. **
  6. ** Some portions of this application utilize sources
  7. ** that are copyrighted by ICE Engineering, Inc., and
  8. ** ICE Engineering retains all rights to those sources.
  9. **
  10. ** Neither ICE Engineering, Inc., nor Tim Endres, 
  11. ** warrants this source code for any reason, and neither
  12. ** party assumes any responsbility for the use of these
  13. ** sources, libraries, or applications. The user of these
  14. ** sources and binaries assumes all responsbilities for
  15. ** any resulting consequences.
  16. */
  17.  
  18.  
  19. #include "SysTypes.r"            /* To get system types */
  20. #include "Types.r"                /* To get system types */
  21. #include "CTBTypes.r"            /* To get CTB types */
  22.  
  23. #include "tar.r";
  24.  
  25. include "tickle.code";
  26. include "tickle.rsrc";
  27.  
  28. resource 'SIZE' (-1) {
  29.     dontSaveScreen,
  30.     acceptSuspendResumeEvents,
  31.     enableOptionSwitch,
  32.     canBackground,
  33.     multiFinderAware,
  34.     backgroundAndForeground,
  35.     dontGetFrontClicks,
  36.     ignoreChildDiedEvents,
  37.     is32BitCompatible,
  38.     isHighLevelEventAware,
  39.     localAndRemoteHLEvents,
  40.     notStationeryAware,
  41.     dontUseTextEditServices,
  42.     reserved,
  43.     reserved,
  44.     reserved,
  45.     1024*1024,
  46.     512*1024
  47.     };
  48.  
  49. resource 'vers' (1)
  50.     {
  51.     0x04, 0x00, release, 0x01, verUS,
  52.     "4.0v1",
  53.     "tickle 4.0v1, Written By Tim Endres"
  54.     };
  55.     
  56. resource 'vers' (2)
  57.     {
  58.     0x04, 0x00, release, 0x01, verUS,
  59.     "4.0v1",
  60.     "tickle 4.0v1 (11/18/93)"
  61.     };
  62.     
  63. resource 'MENU' (256)
  64.     {
  65.     256,
  66.     textMenuProc,
  67.     0x7FEE1C43,
  68.     enabled,
  69.     "File",
  70.     {
  71.         "New...",            noIcon, "N", noMark, plain;
  72.         "Open...",            noIcon, "O", noMark, plain;
  73.         "Save...",            noIcon, "S", noMark, plain;
  74.         "Save As...",        noIcon, noKey, noMark, plain;
  75.         "Close Window",        noIcon, "W", noMark, plain;
  76.         "-",                noIcon, noKey, noMark, plain;
  77.         "Page Setup",        noIcon, noKey, noMark, plain;
  78.         "Print Window",        noIcon, "P", noMark, plain;
  79.         "Print Selection",    noIcon, noKey, noMark, plain;
  80.         "-",                noIcon, noKey, noMark, plain;
  81.         "Open Feedback",    noIcon, "3", noMark, plain;
  82.         "Begin Logging",    noIcon, "L", noMark, plain;
  83.         "Debug Level...",    noIcon, "7", noMark, plain;
  84.         "-",                noIcon, noKey, noMark, plain;
  85.         "Pause Operation",    noIcon, "1", noMark, plain;
  86.         "Cancel Operation",    noIcon, ".", noMark, plain;
  87.         "-",                noIcon, noKey, noMark, plain;
  88.         "Run Script...",    noIcon, "J", noMark, plain;
  89.         "New Folder...",    noIcon, noKey, noMark, plain;
  90.         "Stop The Icons",    noIcon, "0", noMark, plain;
  91.         "-",                noIcon, noKey, noMark, plain;
  92.         "Quit",                noIcon, "Q", noMark, plain;
  93.     }
  94. };
  95.  
  96. resource 'MENU' (257) {
  97.     257,
  98.     textMenuProc,
  99.     allEnabled,
  100.     enabled,
  101.     "Edit",
  102.     {
  103.         "Undo",                noIcon, "Z", noMark, plain;
  104.         "-",                noIcon, noKey, noMark, plain;
  105.         "Cut",                noIcon, "X", noMark, plain;
  106.         "Copy",                noIcon, "C", noMark, plain;
  107.         "Paste",            noIcon, "V", noMark, plain;
  108.         "Clear",            noIcon, "B", noMark, plain;
  109.         "-",                noIcon, noKey, noMark, plain;
  110.         "Select All",        noIcon, "A", noMark, plain;
  111.         "-",                noIcon, noKey, noMark, plain;
  112.         "Shift Left",        noIcon, "[", noMark, plain;
  113.         "Shift Right",        noIcon, "]", noMark, plain;
  114.         "-",                noIcon, noKey, noMark, plain;
  115.         "Find…",            noIcon, "F", noMark, plain;
  116.         "Repeat Find",        noIcon, "G", noMark, plain;
  117.         "Replace…",            noIcon, "R", noMark, plain;
  118.         "Repeat Replace",    noIcon, "T", noMark, plain;
  119.     }
  120. };
  121.  
  122. resource 'MENU' (269) {
  123.     269,
  124.     textMenuProc,
  125.     0x7FFFFFFF,
  126.     enabled,
  127.     "Tcl",
  128.     {
  129.         "No Scripts Installed…",    noIcon, noKey, noMark, plain;
  130.     }
  131. };
  132.  
  133. resource 'MENU' (258) {
  134.     258,
  135.     textMenuProc,
  136.     0x7FFFAEED,
  137.     enabled,
  138.     "Mac",
  139.     {
  140.         "Macintosh File Info…",        noIcon, "I", noMark, plain;
  141.         "-",                        noIcon, noKey, noMark, plain;
  142.         "BinHex File…",                noIcon, noKey, noMark, plain;
  143.         "Un-BinHex File…",            noIcon, noKey, noMark, plain;
  144.         "-",                        noIcon, noKey, noMark, plain;
  145.         "MacBinary Info…",            noIcon, noKey, noMark, plain;
  146.         "MacBinary File…",            noIcon, noKey, noMark, plain;
  147.         "Un-MacBinary File…",        noIcon, noKey, noMark, plain;
  148.         "-",                        noIcon, noKey, noMark, plain;
  149.         "Copy Hierarchy…",            noIcon, noKey, noMark, plain;
  150.         "-",                        noIcon, noKey, noMark, plain;
  151.         "Hierarchical Commands",    noIcon, hierarchicalMenu, "\0x45", plain;
  152.         /*"External Commands",        noIcon, hierarchicalMenu, "\0x46", plain;*/
  153.     }
  154. };
  155.  
  156. resource 'MENU' (69) {
  157.     69,
  158.     textMenuProc,
  159.     allEnabled,
  160.     enabled,
  161.     "",
  162.     {
  163.         "Set File Type…",            noIcon, noKey, noMark, plain;
  164.         "Set File Creator…",        noIcon, noKey, noMark, plain;
  165.         "Set Folder View…",            noIcon, noKey, noMark, plain;
  166.         "-",                        noIcon, noKey, noMark, plain;
  167.         "Show File Info…",            noIcon, noKey, noMark, plain;
  168.         "Show Folder Info…",        noIcon, noKey, noMark, plain;
  169.         "Show File/Folder Info…",    noIcon, noKey, noMark, plain;
  170.     }
  171. };
  172.  
  173. resource 'MENU' (70) {
  174.     70,
  175.     textMenuProc,
  176.     allEnabled,
  177.     enabled,
  178.     "",
  179.     {
  180.         "No External Commands",        noIcon, noKey, noMark, plain;
  181.     }
  182. };
  183.  
  184. resource 'MENU' (259) {
  185.     259,
  186.     textMenuProc,
  187.     allEnabled,
  188.     enabled,
  189.     "Text",
  190.     {
  191.         "Split Text File…",            noIcon, noKey, noMark, plain;
  192.         "Join Text Files…",            noIcon, noKey, noMark, plain;
  193.         "Convert Text File…",        noIcon, noKey, noMark, plain;
  194.         "Make File Type TEXT…",        noIcon, noKey, noMark, plain;
  195.         "-",                        noIcon, noKey, noMark, plain;
  196.         "Unix To Mac…",                noIcon, noKey, noMark, plain;
  197.         "Mac To Unix…",                noIcon, noKey, noMark, plain;
  198.         "-",                        noIcon, noKey, noMark, plain;
  199.         "PC To Mac…",                noIcon, noKey, noMark, plain;
  200.         "Mac To PC…",                noIcon, noKey, noMark, plain;
  201.     }
  202. };
  203.  
  204. resource 'MENU' (260) {
  205.     260,
  206.     textMenuProc,
  207.     allEnabled,
  208.     enabled,
  209.     "UNIX",
  210.     {
  211.         "UUencode File…",            noIcon, noKey, noMark, plain;
  212.         "UUdecode File…",            noIcon, noKey, noMark, plain;
  213.         "-",                        noIcon, noKey, noMark, plain;
  214.         "Compress File…",            noIcon, noKey, noMark, plain;
  215.         "Decompress File…",            noIcon, noKey, noMark, plain;
  216.     }
  217. };
  218.  
  219. resource 'MENU' (261) {
  220.     261,
  221.     textMenuProc,
  222.     allEnabled,
  223.     enabled,
  224.     "StuffIt™",
  225.     {
  226.         "Stuff File…",                noIcon, noKey, noMark, plain;
  227.         "Stuff Multiple…",            noIcon, noKey, noMark, plain;
  228.         "UnStuff Archive…",            noIcon, noKey, noMark, plain;
  229.     }
  230. };
  231.  
  232. resource 'MENU' (262) {
  233.     262,
  234.     textMenuProc,
  235.     allEnabled,
  236.     enabled,
  237.     "ASD",
  238.     {
  239.         "ASD Information…",                noIcon, noKey, noMark, plain;
  240.         "ASD To Macintosh…",            noIcon, noKey, noMark, plain;
  241.         "ASD To MacBinary…",            noIcon, noKey, noMark, plain;
  242.         "-",                            noIcon, noKey, noMark, plain;
  243.         "Macintosh To AppleSingle…",    noIcon, noKey, noMark, plain;
  244.         "Macintosh To AppleDouble…",    noIcon, noKey, noMark, plain;
  245.         "-",                            noIcon, noKey, noMark, plain;
  246.         "MacBinary To AppleSingle…",    noIcon, noKey, noMark, plain;
  247.         "MacBinary To AppleDouble…",    noIcon, noKey, noMark, plain;
  248.     }
  249. };
  250.  
  251. resource 'CNTL' (6991) {
  252.     {0, 0, 19, 200},
  253.     popupTitleRightJust,
  254.     visible, 65, 6991,
  255.     popupMenuCDEFproc,
  256.     0, "Method"
  257.     };
  258.  
  259. resource 'MENU' (6991) {
  260.     6991,
  261.     textMenuProc,
  262.     allEnabled,
  263.     enabled,
  264.     "",
  265.     {
  266.         "None",            noIcon, noKey, noMark, plain;
  267.         "Fast",            noIcon, noKey, noMark, plain;
  268.         "Faster",        noIcon, noKey, noMark, plain;
  269.         "Better",        noIcon, noKey, noMark, plain;
  270.         "Optimal",        noIcon, noKey, noMark, plain;
  271.         "Best Guess",    noIcon, noKey, noMark, plain;
  272.     }
  273. };
  274.  
  275.  
  276. resource 'DLOG' (3030) {
  277.     {38, 80, 245, 427},
  278.     dBoxProc,
  279.     invisible,
  280.     noGoAway,
  281.     0x0,
  282.     3030,
  283.     ""
  284. };
  285.     
  286. resource 'DITL' (3030) {
  287.     {    
  288.         {178,  30, 198,  88},    Button         { enabled, "OK"},
  289.         {178, 258, 198, 316},    Button         { enabled, "Cancel"},
  290.         {  2,   2,  19, 373},    StaticText     {disabled, "Prompt"},
  291.         { 19,   2, 168, 345},    UserItem     {disabled}
  292.     }
  293. };
  294.